110 REM** ROUTINE TO GENERATE CHROMATIC
120 REM** SCALE REGISTER VALUES (HI/LO)
130 REM** BY ARNE STORJOHANN - 86,05,04
140 :
150 DIM LO%(95),HI%(95): G=2^(1/12)
160 F=3520*G*G: D=0.06095948: B=256
170 FOR I = 95 TO 0 STEP -1: N=F/D: HI%(I)=N/B
180 LO%(I)=N-HI%(I)*B: F=F/G: NEXT
190 :
200 REM ** DEMO **
210 :
220 S=54272: FOR I = S TO S+15: POKE I,0: NEXT
230 POKE S+5,96: POKE S+6,251: POKE S+4,33
240 POKE S+24,15: FOR I=-72 TO 72
250 X=71-ABS(I)+16: POKE S,LO%(X)
260 POKE S+1,HI%(X):FOR J=1TO200: NEXT
270 NEXT: POKE S+4,32: END